home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
DJGPP
/
DJLSR111.ZIP
/
libsrc
/
c
/
io
/
ungetc.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-06-28
|
692b
|
31 lines
/* This is file UNGETC.C */
/* This file may have been modified by DJ Delorie (Jan 1991). If so,
** these modifications are Coyright (C) 1993 DJ Delorie, 24 Kirsten Ave,
** Rochester NH, 03867-2954, USA.
*/
#if defined(LIBC_SCCS) && !defined(lint)
static char sccsid[] = "@(#)ungetc.c 5.3 (Berkeley) 3/26/86";
#endif LIBC_SCCS and not lint
#include <stdio.h>
ungetc(c, iop)
register FILE *iop;
{
if (c == EOF || (iop->_flag & (_IOREAD|_IORW)) == 0 ||
iop->_ptr == NULL || iop->_base == NULL)
return (EOF);
if (iop->_ptr == iop->_base)
if (iop->_cnt == 0)
iop->_ptr++;
else
return (EOF);
iop->_cnt++;
*--iop->_ptr = c;
return (c);
}